home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / CreateFilter.zprx < prev    next >
Text File  |  1995-03-09  |  2KB  |  68 lines
  1. /*
  2.    CreateFilter.zp 1.1 (26.2.94) by Ueli Kaufmann
  3.    ARexx skript für Zodiac's Point V37.121ß und groesser.
  4.  
  5. Zweck:
  6. ------
  7. Speichert die Namen aller Bretter mit neuen Nachrichten in einer
  8. Filter-Datei "t:filter.zp".   Mit dieser Filter-Datei ist es
  9. moeglich, einen PUFFER erneut einsortieren zu lassen und dabei
  10. die bereits fertig einsortieren Bretter auszusparen.
  11. Gruende, einen Puffer erneut einzusortieren koennten sein:
  12.  - eine fehlerhafte Nachricht im PUFFER.
  13.  - ein Absturz des Computers waehrend des Einsortierens.
  14.  
  15.  
  16. Wichtig:
  17. --------
  18. Es kann vorkommen, dass ein puffer einsortiert wird, aber die
  19. Nachrichten nicht gelesen werden, da keine Zeit/Lust/etc..
  20. Wenn spaeter erneut ein puffer einsortiert wird, kann es
  21. vorkommen, dass die vermeintlich bereits einsortierten Bretter
  22. sich noch auf den aelteren puffer beziehen und im neuen puffer
  23. waeren noch Nachrichten in diese Bretter einzusortieren.
  24.  
  25. Um dem ein bisschen vorzubeugen, muss der Anwender jedes Brett
  26. mit neuen Nachrichten, das in die Filterdatei uebernommen werden
  27. soll, mit einem Requester quittieren..
  28. */
  29.  
  30.  
  31. filterfile = "t:filter.zp"
  32.  
  33. parse arg zpPort        /* ZP-Port Name als Argument erhalten. */
  34. if zpPort == "" then    /* Wirklich? */
  35.    zpPort = "ZPoint"    /* Ätschi-Bätschi */
  36.  
  37. address value zpPort
  38. options results
  39.  
  40. WHICHLEVEL
  41. if RESULT ~= "BOARDMENU" then
  42.    BOARDMENU
  43.  
  44. JUMPTOBOARD 1
  45.  
  46. if ~open('fh',filterfile,write) then 
  47. do
  48.    REQUESTNOTIFY "Die Filterdatei kann nicht erstellt werden.."
  49.    exit(0)
  50. end
  51.  
  52.  
  53. do forever
  54.    JUMPTONEW Down
  55.    if rc ~= 0 then
  56.    do
  57.       BOARDINFO Names
  58.       boardNames = RESULT
  59.       REQUESTRESPONSE "Soll(en) die Adresse(n)" || '0a'x || boardNames || '0a'x || "in die Filterdatei uebernommen werden?"
  60.       if rc ~= 0 then
  61.          dummy = writeln('fh',boardNames)
  62.    end
  63.    else
  64.       leave
  65. end
  66.  
  67. dummy = close('fh')
  68.